// Bob's Toy Top motion_blur example for MegaPOV [watch for line wrapping of
comments!]

#version 3.1;

// declaring clock as anything else doesn't work apparently
/*
#declare clock_type="D"
#include "clockmod.inc"
#declare dC=mclock;

#declare clock_type="S"
#include "clockmod.inc"
#declare sC=mclock;
*/

global_settings
{
  assumed_gamma 2.2 // PC
   // timestamp 1,5
  motion_blur 16,1.001-(pow(clock, .5 / 1)) // deceleration taken from
C.C.'s ClockMod.inc
}

// ----------------------------------------
camera
{
  location  <-3, 4.5, -9>
  direction 1.5*z
  right     4/3*x
  look_at   <.5, 1.5, 0>
}

sky_sphere
{
  pigment
  {
    gradient y
    color_map { [0 color rgb <.6,.8,.9>] [.25 color rgb <.3,.6,1>] [1 color
rgb <.1,.3,.6>] }
  }
}

light_source
{
  0*x // light's position (translated below)
  color rgb 1.5  // light's color
  translate <-30, 30, -30>
}

#declare C=clock;  // motion blur won't accept this either

// ----------------------------------------
plane { y, 0 clipped_by {box {-1,1 scale <10,1,10>}} pigment {color rgb
<0.7,0.5,0.3>}}

// $blur=yes;

// #if(blur)

motion_blur{

  union{

    cone {0,1,-2*y,0}
    sphere { 0, 1}
    torus {.5,.25 clipped_by {cylinder {-.25*y,.25*y,.5}} translate 1.125*y}
    texture {pigment {radial frequency 8} finish{specular .75 metallic 1
brilliance 1}}
  }

  // scale clock+.5
   translate (1.25-(.5-(clock*.5)))*y // move object down first to get
wobble
// rotate 720*dC*y rotate sC*60*x rotate (720-(360*sC))*y  // non-working
way
  rotate -(90*(1-(sin((clock - .5) * pi) / 2 + .5)))*y // S-wave taken from
C.C.'s ClockMod.inc
   rotate (pow(clock, 2)*(60*sin((clock - .5) * pi) / 2 + .5))*x // S-wave
taken from C.C.'s ClockMod.inc
    rotate (540-(1080*(pow(clock, .5 / 1))))*y // deceleration taken from
C.C.'s ClockMod.inc
  translate (1.25-(.425*clock))*y  // move back up so tip is at plane (not
accurate!)

 // translate <0,2,6*clock>
}

// #end


// omniVERSE
// http://users.aol.com/inversez/

Post a reply to this message